home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / straight select (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  143b  |  8 lines
  1. 10040 ti$="000000":g=a-1:forx=a-1to1step-1
  2. 10050 f=0:fory=1tog
  3. 10060 ifa$(y)<=a$(y+1)then10080
  4. 10070 f=y:sys49152(a$(y),a$(y+1))
  5. 10080 nexty
  6. 10090 g=f:iff=0then50000
  7. 10100 nextx
  8.